﻿<!-- #include file="../ding.asp" -->
<!-- #include file="../mymin.asp" -->
<%Call Head2()%>
<title></title></head><body><div class='main400'>
<%
Function UTF8code(Str)
	Dim i,OneStr,AllStr
	For i = 1 To Len(Str)
		OneStr = Mid(Str,i,1)
		if asc(OneStr)=0 then
			AllStr = AllStr & chr(38) & chr(35) & chr(120) & Hex(Ascw(OneStr)) & chr(59)
		else 
			AllStr = AllStr & OneStr
		end if
	Next
	UTF8code = AllStr
End Function

dim TP,txt
TP=trim(request("TP"))
txt=trim(request("txt"))
if TP<>"" then
	if txt="" then
		Call Error2("UTF-8编码内容不能为空！")
	end if
	response.write "<input name=""i"&time_r&""" value="""&UTF8code(txt)&"""/>"
else
%>
<form method="post" action="utf_8.asp">
UTF-8编码内容:<br/>
<textarea name="txt" cols="45" rows="10"></textarea><br/>
<input type="submit" value="转成汉字"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
<input type="hidden" name="TP" value="1"/>
</form>
<%end if
if TP<>"" then
	response.write"<br/><a href='Utf_8.asp?sid="&sid&"'>重新转换</a><br/>"
end if%>
<a href="index.asp?sid=<%=sid%>">[站长工具]</a><br/>
<a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
</p></card></wml>